home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 026a / setcolor.zip / SETCOLOR.PRG
Text File  |  1991-08-20  |  5KB  |  171 lines
  1. ****************************************************************
  2. * PROGRAM: SET COLOR                                           *
  3. * PURPOSE: THIS WILL SET UP THE COLOR ATTRIBUTES OF THE SCREEN *
  4. * AUTHOR : William Bautista                                    *
  5. * TEL NO : (818) 500-6550                                      *
  6. * DATE   : 08/20/91                                            *
  7. * COPYRIGHTED MATERIAL (c) 1991                                *
  8. * ALL RIGHTS RESERVED                                          *
  9. * NO IMPLIED WARRANTY ATTACHED                                 *
  10. * USER ACKNOWLEDGES THE USE AT THEIR OWN RISK                  *
  11. * USER COMMENTS ARE WELCOMED AND ENCOURAGED                    *
  12. ****************************************************************
  13.  
  14. OLDTALK = SET("TALK")
  15. SET TALK OFF
  16. OLDBELL = SET("BELL")
  17. SET BELL OFF
  18. OLDCONF = SET("CONF")
  19. SET CONF ON
  20. SAVE SCREEN TO SETCOLOR
  21. CLEAR
  22. IF ISCOLOR()
  23.     @00,00 TO 05,22 196,196,179,179
  24.     OLDCOLOR = SET("ATTRIB")
  25.     NORMAL   = SUBSTR(SET("ATTRIB"),1,AT(",",SET("ATTRIB"))-1)
  26.     STANDARD = SUBSTR(NORMAL,1,AT("/",NORMAL)-1)
  27.     STANDBAK = SUBSTR(NORMAL,AT("/",NORMAL)+1,LEN(NORMAL)-LEN(STANDARD))
  28.     HILIGHT  = SUBSTR(SET("ATTRIB"),AT(",",SET("ATTRIB"))+1,AT("&",SET("ATTRIB"))-2)
  29.     HILIGHT  = SUBSTR(HILIGHT,1,AT(",",HILIGHT)-1)
  30.     ENHANCED = SUBSTR(HILIGHT,1,AT("/",HILIGHT)-1)
  31.     ENHNCBAK = SUBSTR(HILIGHT,AT("/",HILIGHT)+1,LEN(HILIGHT)-LEN(ENHANCED))
  32.     SET CURSOR OFF
  33.     DEFINE MENU ATTRIBUTES MESSAGE " Set screen color attributes"
  34.     DEFINE PAD STANDARD OF ATTRIBUTES PROMPT " Standard            " AT 01,01
  35.     DEFINE PAD STANDBAK OF ATTRIBUTES PROMPT " Standard Background " AT 02,01
  36.     DEFINE PAD ENHANCED OF ATTRIBUTES PROMPT " Enhanced            " AT 03,01
  37.     DEFINE PAD ENHNCBAK OF ATTRIBUTES PROMPT " Enhanced Background " AT 04,01
  38.     ON PAD STANDARD OF ATTRIBUTES ACTIVATE POPUP SETCOLOR
  39.     ON PAD STANDBAK OF ATTRIBUTES ACTIVATE POPUP SETCOLOR
  40.     ON PAD ENHANCED OF ATTRIBUTES ACTIVATE POPUP SETCOLOR
  41.     ON PAD ENHNCBAK OF ATTRIBUTES ACTIVATE POPUP SETCOLOR
  42.     DEFINE POPUP SETCOLOR FROM 00,23
  43.     DEFINE BAR 01 OF SETCOLOR PROMPT " Black          "
  44.     DEFINE BAR 02 OF SETCOLOR PROMPT " Blue           "
  45.     DEFINE BAR 03 OF SETCOLOR PROMPT " Light Blue     "
  46.     DEFINE BAR 04 OF SETCOLOR PROMPT " Green          "
  47.     DEFINE BAR 05 OF SETCOLOR PROMPT " Light Green    "
  48.     DEFINE BAR 06 OF SETCOLOR PROMPT " Cyan           "
  49.     DEFINE BAR 07 OF SETCOLOR PROMPT " Light Cyan     "
  50.     DEFINE BAR 08 OF SETCOLOR PROMPT " Gray           "
  51.     DEFINE BAR 09 OF SETCOLOR PROMPT " Red            "
  52.     DEFINE BAR 10 OF SETCOLOR PROMPT " Pink           "
  53.     DEFINE BAR 11 OF SETCOLOR PROMPT " Magenta        "
  54.     DEFINE BAR 12 OF SETCOLOR PROMPT " Bright Magenta "
  55.     DEFINE BAR 13 OF SETCOLOR PROMPT " Brown          "
  56.     DEFINE BAR 14 OF SETCOLOR PROMPT " Yellow         "
  57.     DEFINE BAR 15 OF SETCOLOR PROMPT " White          "
  58.     DEFINE BAR 16 OF SETCOLOR PROMPT " Bright White   "
  59.     ON SELECTION POPUP SETCOLOR DO REVCOLOR
  60.     BLACK    = "N"
  61.     BLUE     = "B"
  62.     LTBLUE   = "B+"
  63.     GREEN    = "G"
  64.     LTGREEN  = "G+"
  65.     CYAN     = "BG"
  66.     LTCYAN   = "BG+"
  67.     GRAY     = "N+"
  68.     RED      = "R"
  69.     PINK     = "R+"
  70.     MAGENTA  = "RB"
  71.     LTMAGENT = "RB+"
  72.     BROWN    = "GR"
  73.     YELLOW   = "GR+"
  74.     WHITE    = "RGB"
  75.     LTWHITE  = "W+"
  76.     ACTIVATE MENU ATTRIBUTES
  77.     SET CURSOR ON
  78. ENDIF
  79. CLEAR
  80. SAVEIT = .F.
  81. @ROW()+1,01 SAY "Save colors as permanent settings?" GET SAVEIT PICTURE "Y"
  82. READ
  83. IF .NOT. SAVEIT
  84.     SET COLOR TO &OLDCOLOR
  85. ELSE
  86.     SET COLOR OF NORMAL      TO &NORMAL
  87.     SET COLOR OF MESSAGES    TO &NORMAL
  88.     SET COLOR OF TITLES      TO &NORMAL
  89.     SET COLOR OF BOX         TO &HILIGHT
  90.     SET COLOR OF HIGHLIGHT   TO &HILIGHT
  91.     SET COLOR OF INFORMATION TO &HILIGHT
  92.     NEWCOLOR = SET("ATTRIB")
  93.     OLDSAFE  = SET("SAFE")
  94.     SET SAFE OFF
  95.     SAVE TO ATTRIBUTE ALL LIKE NEW*
  96.     SET SAFE &OLDSAFE
  97. ENDIF
  98. RELEASE POPUP SETCOLOR
  99. RELEASE MENU  ATTRIBUTES
  100. RESTORE SCREEN FROM SETCOLOR
  101. RELEASE SCREEN SETCOLOR
  102. SET TALK &OLDTALK
  103. SET BELL &OLDBELL
  104. SET CONF &OLDCONF
  105. CLEAR
  106. RETURN
  107. * EOP: -- SETCOLOR
  108.  
  109. ******************
  110. PROCEDURE REVCOLOR
  111. ******************
  112. CHOICE = PAD()
  113. DO CASE
  114.     CASE PAD() = "STANDARD"
  115.         DO COLORS
  116.     CASE PAD() = "ENHANCED"
  117.         DO COLORS
  118.     CASE PAD() = "STANDBAK"
  119.         DO COLORS
  120.     CASE PAD() = "ENHNCBAK"
  121.         DO COLORS
  122. ENDCASE
  123. NORMAL    = STANDARD + "/" + STANDBAK
  124. HILIGHT   = ENHANCED + "/" + ENHNCBAK
  125. @01,42 SAY "COLOR OF STANDARD  " COLOR &NORMAL
  126. @02,42 SAY "COLOR OF ENHANCED  " COLOR &HILIGHT
  127. SET COLOR TO &NORMAL,&HILIGHT
  128. RETURN
  129. * EOP: -- REVCOLOR
  130.  
  131. ****************
  132. PROCEDURE COLORS
  133. ****************
  134.  
  135. DO CASE
  136.     CASE BAR() = 01
  137.         &CHOICE = BLACK
  138.     CASE BAR() = 02
  139.         &CHOICE = BLUE
  140.     CASE BAR() = 03
  141.         &CHOICE = LTBLUE
  142.     CASE BAR() = 04
  143.         &CHOICE = GREEN
  144.     CASE BAR() = 05
  145.         &CHOICE = LTGREEN
  146.     CASE BAR() = 06
  147.         &CHOICE = CYAN
  148.     CASE BAR() = 07
  149.         &CHOICE = LTCYAN
  150.     CASE BAR() = 08
  151.         &CHOICE = GRAY
  152.     CASE BAR() = 09
  153.         &CHOICE = RED
  154.     CASE BAR() = 10
  155.         &CHOICE = PINK
  156.     CASE BAR() = 11
  157.         &CHOICE = MAGENTA
  158.     CASE BAR() = 12
  159.         &CHOICE = LTMAGENT
  160.     CASE BAR() = 13
  161.         &CHOICE = BROWN
  162.     CASE BAR() = 14
  163.         &CHOICE = YELLOW
  164.     CASE BAR() = 15
  165.         &CHOICE = WHITE
  166.     CASE BAR() = 16
  167.         &CHOICE = LTWHITE
  168. ENDCASE
  169. RETURN
  170. * EOP: -- COLORS
  171.